library(highcharter)

xaxis <- readRDS("./xaxis.rds")

t1_coef <- readRDS("./t1_coef.rds")


t1_coef <- cbind(xaxis, t1_coef)
t1_coef <- data.frame(t1_coef)

h <- hchart(t1_coef, "line", hcaes(x = xaxis, y = t1_coef)) %>% hc_yAxis(max = .5) %>% hc_yAxis(min = -.5) %>% hc_add_theme(hc_theme_economist())
h

library(highcharter)

xaxis <- readRDS("./xaxis.rds")

total_t1_aa <- readRDS("./total_t1_aa.rds")


total_t1_aa <- cbind(xaxis, total_t1_aa)
total_t1_aa <- data.frame(total_t1_aa)

h <- hchart(total_t1_aa, "line", hcaes(x = xaxis, y = total_t1_aa)) %>% hc_yAxis(max = .5) %>% hc_yAxis(min = -.5) %>% hc_add_theme(hc_theme_economist())
h